home *** CD-ROM | disk | FTP | other *** search
/ SuperHack / SuperHack CD.bin / CODING / GRAPHICS / FADE2.ZIP / FADE2.DOC < prev    next >
Encoding:
Text File  |  1994-11-27  |  3.0 KB  |  69 lines
  1.       FADE2.PAS   -=-    Turbo Pascal Fading Routine    -=-    By Mike Schutz
  2.                                November,  1994
  3.  
  4.             Allrighty, then.  Here's the Fade2 unit.  I've heard from
  5.         several people, most of you requesting a TPU that supports TP 7.0,
  6.         and a few requests for a fade in procedure.  Well, you're all set.
  7.  
  8.             Fade2 has the same old fade out routine that Fade.tpu had, but
  9.         I've also thrown in GrabPal, Blackout, and FadeIn procedures, which
  10.         are all used for a nice fading in effect.  Below is an explanation
  11.         of each, along with the old stuff:
  12.  
  13.                 PROCEDURE GrabPal;
  14.                 Syntax:  GrabPal;
  15.                 Purpose:  GrabPal stores the current palette into a
  16.                           two-demensional array in the unit.
  17.  
  18.                 PROCEDURE Blackout;
  19.                 Syntax:  Blackout;
  20.                 Purpose:  Blackout does exactally that.  Set's the whole
  21.                           palette to 0, so the screen is black, even when
  22.                           something "is there."
  23.  
  24.                 PROCEDURE FadeIn;
  25.                 Syntax:  FadeIn;
  26.                 Purpose:  Must I really explain this?
  27.             
  28.                 PROCEDURE FadeOut; 
  29.                 Syntax:  FadeOut;
  30.                 Purpose:  This should speak for itself as well.  The 
  31.                           palette of the screen is sequentially adjusted 
  32.                           towards zero.  The R, G, and B values are 
  33.                           decremented until they reach zero.
  34.  
  35.                 PROCEDURE ResetTextMode; 
  36.                 Syntax:  ResetTextMode;
  37.                 Purpose:  Resets to default text mode and palette.
  38.  
  39.             GrabPal and Blackout must be executed before FadeIn, respectively.
  40.         FadeIn fades to the palette stored by GrabPal, and if you don't
  41.         "Blackout," then FadeIn has nothing to do.
  42.  
  43.             FadeOut doesn't require you to call any procedures prior to it,
  44.         because it manipulates from the palette instead of to it.
  45.  
  46.             If you ever do anything that blanks the screen, and you can't
  47.         seem to correct it, just call ResetTextMode; -- That will always
  48.         fix everything.
  49.  
  50.             I've again included an example file, called FADEDEMO.PAS.  Knock
  51.         yourselves out.
  52.  
  53.         HEY, WAIT!
  54.             Before I sign out, I'd like to thank Asphynxia for their tutorial
  55.         series.  That's where I finally got this fade in thing.  I had my
  56.         own that never wuite worked right, but then found a working procedure
  57.         in their demo.  I just hope to make it easier now for those who just
  58.         want the fade or whatever.
  59.  
  60.             If, for any odd reason, you want to contact me, try the following
  61.         Internet email addresses.  I don't know where I'll be in the next
  62.         year or two, so if one doesn't work, try the next:
  63.                 mschutz@gmu.edu
  64.                 mschutz@cap.gwu.edu
  65.                 mschutz@capaccess.org
  66.  
  67.         
  68.         Enjoy yourself.
  69.